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~NOSHOW CONDITIONALS 
~TITLE ERRSUB750 - ERROR SUBROUTINES FOR VAX 11/750 


IDENT ‘'V04-002' 


=PPARAARBAAARAAAAAAALASAALALALASALAAELE SALAS ELELAR SEARLE EASES ARR A RRS A RARER AAS SS 


® 
:* * 
;* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
* DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. * 
:* ALL RIGHTS RESERVED. * 

w 
s* TH * 
»* ON * 
* IN a 
* CO I * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. « 
** a 
e * 
® ® 
** © 
ft ® 
oy * 
* x 
® © 
** * 
* * 


L 

I$  . Hy FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
LY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
5 FTWARE ANY OTHER 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT ION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


; RAAT AAAAATAAAAAAEAAAAAARAAAAAAAAAAAAAAAAAAAAEAAARAEARAEAAAEAAAEEEEE 
it 

FACILITY: 

; EXECUTIVE, LOADABLE SUBROUTINES USED BY POWERFAIL AND BUGCHECK. 
ABSTRACT: 

LOADABLE SUBROUTINES USED BY POWERFAIL AND BUGCHECK. 

AUTHOR: 

N. KRONENBERG, JULY 2, 1979. 

MODIFIED BY: 


v04-003 wMc00001 Wayne Cardoza 13-Sep-1984 
CRD reporting must not be turned off for VENUS. 


V04-002 CWH4002 gbbs 08-Sep-1984 
Correct typo in Femoot use ‘-"' instead of ‘= 


v04-001 1TCM0010 Trudy C. Matthews 07-Sep-1984 
For the venus processor: move turning on cache from routine 


Ooooooooo 


NIA AAA AA AAA AMAIA AAAI ES BB EWA AA A AIAAIIOPONININININININ 


=OOO NAN EWIDO OD NOA ME WIN @ OOO NIA NE WIN 2 OOD NAME WIN 0 ODNOAU EW NID O NI 


Sooooooooooooooooecoo 


SOOoOooooooooooooo 
OOOooooooo 


ooooo 
Sooooooo 
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ERRSUB750 = ERROR SUBROUTINES FOR VAX 11/750 16-SEP=-1 AX/VMS Macro V04-00 Pa 
HOas002 1$rSEb= 1382 98:25:33 FENCVAS Bache, NOh= 00 Ls ef, 
EXESINIPROCREG to ’ new routine: INISCACHE. Correct t 
order in which registers are saved on the stack in E ESREGSAVE. 


v03-022 TCMO009 Trudy C. Matthews 30-Jul-1984 
When turning off CRD interrupts in EXESINIPROCREG for VENUS, 
read the processor regisyer and write it back to preserve 
the state of other bits in the register. 


v03-021 TCMO0008 Trudy C. Matthews 23-Jul-1984 
Remove venus code that queries the console for how to set up 
cache and FBOX state. Instead always turn the cache and 
GOx on Cane let the normal error handling code turn it off 
V03-020 bWT0214 avid W. Thiel 02-May-1984 
Revise MicroVAX | *TODR register simulation. 


V03-019 KDM0096 Kathleen D. Morse 27-Mar-1984 
Add missing indirection in MicroVAX I memory CSR 
CRD enabling. 


v03-018 KPLO101 Peter Lieberwirth 4-Mar-1984 
Add extra vectors a ¥ Cet ines in SYSLOAVEC. These vectors 
are insurance for v4 


v03-017 KPLO100 Peter Lieberwirth 12-Feb-1984 
Change RPBS$B _BOOTNDT. to RPB$W_BOOTNDT, since BI devices 
will have 16=bit device types. 


v03-016 pepe Kathleen D. Morse 23-Jan-1984 
rect t the number of cpu-specific IPRs logged for the 
5995 and MicroVAX I cpus. 


VO3-015 CWH8001 Cw Hobbs 5-Dec-1983 
Add entry points for EXESREADP_TODR and EXESURITEP. TODR 
oe access pays tees TODR register for Nautilus CPU.” For 


her proces these amount to duplicate labels on 
PXESRE D_ TODR rnd EXESURITE _TODR. 
V03-014 KTA3088 ey T. Altm 17-Oct-1983 
Fix bug in 730 penett onal hes *EXESINIBOOTADP. 
v0O3-013 KDM0081 Kathleen D. Morse 13-Sep-1983 
Create Micro-VAX I version. 
v03-012 KDROOSS Kathleen D. Morse 12-Jul-1983 


Move IPR PME into the cpucdependent register save and 
restore routines. 


v03-011 KDM0049 Kathleen D. Morse 07-Jul-1983 
Add the ol loving processor. registers to the cou-spec tt te 
Cune IPRs rou he Add usage o 
register: PXESREAD. TODR and ExeSuRiTE _TOOR. 


v03-010 KOM0048 Kathleen D. Morse 07-Jul-1983 
Add loadable routines for SORITE TOR. the time-of-day 
clock: EXE $RE EAD_TODR, EXESWRITE_TOD 


OOOoOCCOCOOCoQoQoooooooooooooooooooooooooooooooooooooooeo 
RPM INIMININININS 3 9 9 9  MQOOOODOOOOCOOOOOOOOOOO OW OOO COCO WOO INNIS 
CONAN WIN OOD NAME WN SO OD NAVE WN 9 OD NAME WIN 3 O OD NAME WO ODNOU LS UT 


SOOOCSOCOSOOSSSSOOSOSOOSOSOSOSOOOSOSOSOSOSOSOSOOOSOOSOOOOOOOOOOOOOOOOOOOOOOOO 
SOSSSCSCSOSSSSOSOSOSSSOSSSSOOSOSSSOSOSSSSSSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOOSOOSOOOO 


SOQooooooooooooooooooooooooooooooooooooooooooooooo 
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SooQooooo 
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v03-009 {cnec? Trud X35 Matthews Jun-1983 
Fix routine SYSLSCLRSBIA so that it sehen PSs the address 
of SBI adapter register space correctly. 


v03-008 TCM0006 Trudy C. Matthews 9-Feb-1983 
Store enable/disable state of 11/790 0 cache ond FBOX in 
EXESGB_CPUDATA cell during system initialization. 


v03-007 TCM0005 Rel Matthews 11-Jan-1983 
ddr XE INTeROC SYSL sce BIA. Aid’ se SBIA register initialization 
to 43 att BChEG. a iy? qhine check handler to 
— € we 0 machi ne check handler to 
y te PRS. SBirs . to itself to clear error bits. 
Add label§ for A... “extra” royeie nes, that can be patched 
f extra vectors from SYS to SYSLOA are needed in between 


major releases. Make tet pet log the SBI registers 
from the SBI the 11/79 system disk is on. 


Remove Cl and UBA routines to another module. 


SSOOSOSOSSSSOSOSOSOOSOSOSSOSOSOOSOSOOSOOOSOOOOOOSOSOSOOO 
SSOSCSOSSSSOOSSOSSOSOSSOSOSOSOSOOSOSSOOOSOSOSOOCOSOOSOO 
SSOSSSSSSOSSOSSSSSSSSSOSSSSSOSOSSOSOSOSOOSOOSOSO 
a as ts a 4) a a a 4s 2s ts 3 2 4s >) 2 2 Ss ss Ss —) 
AOAOOOUUIMNUINUUIUIU ES BEBE EEE ES EWN 


MEW OOONAUES WN O ODNAU EWN 0 OONOUS UT O0 


Se Se Ge Ge Se Ge Ge Ge Se Se Gee Ge Ge Se Se Ge Se Ge Ge Ge Ge Ge Ge Gee Ge Fe Ge Ge Ge Ge Se Se Fete te 


0 V03-006 TCM0004 Trudy f Matthews 3-Jan-1983 
8 Add more hey tic code. 

0 v03-005 TCM0003 rudy C. Matthews 17-Dec-1982 
0 Add conditional ioectats switch to the invocations 
8 of 11/790-specific definition macros. 

0 v03-004 TCM0002 Trudy C. Matth 15-Dec-1982 
8 Added 11/790-specitic code to EXESINIPROCREG. 

0 v03-003 TCM0001 rudy C. Matthews 13-Dec-1982 
0 Added 11/790-spec ifi¢ code to power down/power up 

8 routines 

8 V03-002 KTA3018 Kerbey T. Altmann 30-0c t-1982 
0 
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- ERROR SUBROUT 
EXESINIBOOTADP 
ae 
| 
1 60 
1 
i 
1 
1 64 
1 65 
1 66 
0 } 6 
3 
1 0 
44 71 
0000 44 i 
00 ? 
00 74 
00 75 
000 77 
91 444 78 
00 79 
13 0005 80 
D0 ©0007 4 
008 § 2 
008 84 
AB 0008 85 
Bi 0011 86 
13 Bate 87 
Bi 0016 88 
12 0019 89 
D0 0018 290 
01D 91 
O1F 92 
O1F 96 
DB Bobb 98 
0 § 00 
3 00 Be 
D> 600 8 5 
0 88 
i 
Bt 
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NES FOR VAX 11 175° 19n368 ~138¢ 9 49:14 VAX/VMS Macro Vv04-00 Page 
INITIALIZE tHe BOOT DEV 1 4 15:49:22 CSYSLOA.SRCJERRSUB.MAR; 5 
.SBTTL EXESINIBOOTADP = INITIALIZE THE BOOT DEVICE ADAPTER 
; EXESINIBOOTADP = GET THE SYSTEM BOOT DEVICE ADAPTER AND INIT IT 
; THIS ROUTINE IS CALLED FROM BUGCHECK BEFORE THE BOOTDRIVER IS CALLED. 
: INPUTS: 
: R6 = RPB ADDRESS 
: OUTPUTS: 
: RO-R2 DESTROYED 
: OTHER REGISTERS PRESERVED 
.PSECT SYSLOA,LONG 
“ENABLE LSB 
EXESINIBOOTADP: : ; SUBROUTINE ENTRY 
CMPB  —s RPB$B_DEVTYP(R6),- 


1S BOOT DEVICE THE CONSOLE 
DEVICE? 


#BTDSR_CONSOLE :BLOCK STORAGE 


BEQL YES, RET 
MOVL § RPBSL_ADPVIR(R6),RO iGET ADDR OF ADAPTER REG SPACE 
BICW3 #3,RPB$W_BOOTNDT(R6),R2 ;GET GENERIC ADAPTER TYPE 
CMPW =- R2, HNDTS$-C1 :CI A PTER? 
BEQL 2 YES, 
CMPW Re #NDTS_MB MASS Ros UA OAPTER? 
BNEQ UBADP “BRANCH IF NOT 
MOVL snBKSh CR_ABORT,- SABORT ACTIVE TRANSFER 
MBASL_CR(RO) ; 
MFPR = #PR75O$_TODR,R1 :GET CURRENT TIME (10 MS UNITS) 
MOVAB 100(R1),R1 ;ALLOW ONE SECOND 
10S: TSTL MBASL SR(RO) ‘WAIT UNTIL TRANSFER 
BGEG : IS COMPLETE 
MFPR - #PR750$_TODR,R2 :GET CURRENT TIME 
CMPL — R11, R2 sCHECK FOR INTERVAL EXPIRED 
BGTRU 10$ ‘NOT YET, WAIT SOME MORE 
15$:  MOVL  #MBASM_CR INIT. [NOW INIT MBA 
MBASL_CR(R ; 
20$:  RSB ‘DONE 
INI_UBADP: s INIT UBA 
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UTINES FOR VAX 11/75 

P = INITIALIZE tHe BOOT DEV 13- 

45 MTPR #0, #PR750$_UBRESET 
3] 

3 
$f : CHECK THE VMB VERSION NUMBER. 
¢ + SEE IF ANY UNIBUS MAP REGISTERS TO DI 
64 

65 MOVL RPBSL_IOV 

66 MCOMW Ba0Si- VER 

CMPW 1,BQ0$W_ STONCRS) 

68 BNEQ 4 

69 CMPW  BQOSW_VERSION(R2) ,#7 
0 BLSSU & 

71 MOVL § BQOSL_UMR_DIS(R2),R2 
i BEQL 408 

7 

oe : 

79 : THIS CODE IS EXECUTED FOR 

0 : REGISTERS ASSOCIATED WITH 

: SBI AND UNIBUS ADDRESSES. 

4 NOVAL UBASL_MAP(RO) ,R1 
85 30$ CLR (R1) 
86 SOBGTR R2, $s 
88 40$:  RSB 
89 .DISABLE LSB 


AX/VMS Macro V04-00 
SYSLOA.SRC7ERRSUB.MAR;5 


; INIT UBI AND UNIBUS 


NY UNIBUS MAP 


BUS MEMORY TO ENTION BETWEEN 


ayy tty OF FIRST REGISTER 


2D 
;LOOP UNTIL ALL DONE 
;DONE WITH UBA INIT 


"EH 
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ERRSUB750 = ERROR SUBROUTINES FOR VAX 11/755 19-8 o- 1882 90:49:48 AX/VMS Macro V04-00 Page 4 
v04-002 EXESSHUTDWNADP = SHUTDOWN ANY ADAPTERS D 15-SEP-1984 :49:22 CSYSLOA.SRCJERRSUB.MAR;5 (5) 
3 -SBTTL EXESSHUTDWNADP = SHUTDOWN ANY ADAPTERS DURING BUGCHECK 
g ‘ -SBTTL EXESSTARTUPADP = STARTUP ANY ADAPTERS 
: 34 : EXESSHUTDWNADP = SHUTDOWN ANY ADAPTERS DURING BUGCHECK 
5 3 THIS ROUTINE IS CALLED FROM BUGCHECK BEFORE THE DUMP IS TAKEN TO 
é 38 : ENSURE THAT ALL ADAPTERS THAT NEED TO BE QUIESENT ARE. 
06 38 ; INPUTS 
06 490 ; IPL = 31 
8s 4 ; + OUTPUTS 
906 4 4 ; OTHER REGISTERS PRESERVED 
06 406 ‘ -ENABLE LSB 
06 408 EXESSTARTUPADP: : 
17 BB 006 409 PUSHR #*M<RO,R1,R2,R4> : Save a register 
51 A7'AF DE 0062 410 MOVAL ®B*ADP_fBL_UP.R1 : Address of startup table 
06 11 Boe a1) BRB 5$ ; Join common code 
Bee 113 EXESSHUTDWNADP: : 
BB 006 414 PUSHR #*M<RO,R1,R2,R4> ; Save a register 
51 BF'AF DE 006A 415 MOVAL B*ADP_fBL_DWN,R1 : Address of shutdown table 
FFFFFFFC'SF DE OOF 218 5$: MOVAL a@#<IOC$GL-ADPLIST- - 
8 0074 41 ADP$L_CINK>,R 3; Get pointer to head of adapter List 
52 O4A 0 ee 418 10$: MOVL ADPSL_LIRK(R2),R ; Flink onward 
11 1 079 419 BEQL 20$ ; Branch if at end of List 
54 6 P 007B 420 MOVL ADPS$L_CSR(R2) ,R4 3; Get address of CSR 
50 OE A C th 421 MOVZWL ADPS$W_ADPTYPE(R2) ,RO 3; Get adapter type code 
50 614 DE 008 4 ; MOVAL (R1)CROJ,RO ; Get table entry of adap shutdown 
00 B040 16 0086 4 JSB a(RO)CROS : Call adapter shutdown 
E9 «(11 st ? : BRB 10$ 3; Next adapter 
17 BA O08 426 eos: POPR #*M<RO,R1,R2,R4> EX! 
05 pee 427 30$: RSB EX! 
SO8E 459 eX 
O8F 430: Table of addresses of adapter shutdown routines ordered EX 
OB ? 3 by adapter type in ADP$W_ADPTYPE. x 
Fo 433" 10 
F 434 ADP_TBL_DWN: ; Address table start MA 
rireere Hae BiG BE : oe S 
ieerHHE? Oop? Sti “oNe R= : cR rs 
FFFFFF61" OOSF 108 “LONG C1SSHUTDOWN- : 4-C1 mB 
FFFFFFEB ry $¢8 LONG $-. 3; Rsvrd for future expansion Hs) 
A? 446; [lal 
A? 103 3; Table of addresses of adapter startup routines ordered ND 
ry! $38 ; by adapter type in ADP$W_ADPTYPE. | 
A? 450 * NO 
A? ra ADP_TBL_UP: ; Address table start OK 
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= ERROR SUBROUT FOR VAX 11/750 16-SEP-1984 00:49:14 YVAX/VMS Macro v04-00 Page 
vive a EX ERP RRTUPADE ADP INES AR TARTUP ANY ADAPTERS 19-36-1382 90:23:33 SYSLOA. SRCJERRSUB. MAR: 5 &) 

FFFFFFS9" OOA7? 4 .LONG MBASINITIAL-. : O-MBA 

He pee fi} te RIN; 

FEEEEE AD" 83 438 “LONG MASINITIAL-. : “habo 

FEE EERDS Ose i37 LONG $-. : Rsved for future expansion 
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~SBTTL EXESDUMPCPUREG = DUMP CPU-SPECIFIC IPR'S 


3¢ 

> 11/780: 11/750: 

: ICR I 

: TODR TODR 

> ACCS ACCS 

> SBIFS TBOR 

: SBISC CADR 

: SBIMT Mi 

: SBIER C 

: SBIS ¢ 

: 16 SBI SILO. 1 

: INPUTS: 

: OUTPUTS: 

: RO,R1 DESTROYE 
.ENABL LSB 

EXESDUMPCPUREG: : 
MFPR —s #PR 
MFPR #PR 
MFPR  — #PR 
MFPR —- #PR7 
MEPR —- #PR7 
MFPR  — #PR7 
MFPR = #PR7 
MEPR —- #PR7 
MOVL  #<EMB 

10$:  CLRL (RO)+ 
SOBGTR R1,10$ 

90$: 


RSB 
-DISABLE LSB 


11/730: 


TODR 
ACCS 
21 UNUSED(0) 


D 
ALL OTHER REGISTERS PRESERVED 


DUMP CPU-SPECIFIC IPR'S INTO ERROR MESSAGE BUFFER. 


TWENTY-FOUR LONGWORDS ARE RESERVED in HY 3 Aste 
IPR'S. THE FORMATS FOR VARIOUS CPU'S 


FOR CPU-SPECIFIC 


11/790: 


(1st, SBI) 


S 
SILO * 


—-AaNnNBNwyS-- 


TS 

CM 

T 

RR ef 
DD 

BI 


RO - ADDR IN EMB OF START OF CPU-SPECIFIC REGISTERS= 
OFFSET EMBSL_CR_CPUREG 


;SUBROUTINE ENTRY 
+ ;LOG INTERVAL COUNT REG, 
)+ : TIME-OF-DAY REG 
)+ ; ACCELERATOR CONTROL REG, 
)+ TB DISABLE . 
)+ > CACHE bis REG, 
0)+ + MCHECK ERROR SUMMARY REG 
)+ CACHE ERROR REG 
RO)+ CMI ERROR SUMMARY REG! 
<EMBSL ch. CMIERR+4>>/4,R1 :GET 

“CPU-SPECIFIC REG LEFT 
: AND ZERO THEM 


o V04-00 
SYSLOA.SRCJ ERRSUB.MAR; 5 


uVAX I: 


UNUSED (0) 
APPROX TODR 


pe graet te 
1 UNUSED(O) 


STER 
# LONGWDS OF 
IN EMB 


sap 


ext 
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SDUMPCPUREG - 


O0E0 


575 


DUMP CPU 


pee 


754 
750 
FIC 
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~SBTTL EXESREAD_TODR (P) = READ TIME-OF-DAY CLOCK 


EADS THE TIME-OF-DAY CLOCK, SINCE IT MAY BE ACCESSED IN 
I WAYS: AN RNAL PROCESSOR REGISTER AS PART 


i=] 


ERRSUB750 = ERROR U 
v04-002 10 


mo 


NONE. 
OUTPUTS: 


RO = TODR VALUE 
ALL OTHER REGISTERS PRESERVED 


XESREADP_TODR: : ; SUBROUTINE ENTRY 


S PROCES E 
R IN THE OLE PROSESSOR FOR TWO REASONS. FIRST, THE PHYSICAL 
AS ONE SECOND RESOLUTION INSTEAD OF 10 MSEC RESOLUTION. 
ENCE TO THE PHYSICAL TODR IS A VERY SLOW, NON-INTERRUPTIBLE ACTION. 
NON-PHYSICAL NAUTILUS TODR REFERENCES WILL USE THE EXESREAD_TODR ENTRY 
WHICH WILL FABRICATE THE TIME FROM THE QUADWORD SYSTEM TIME. 
; NOT NAUTILUS = FALL THROUGH TO READ_TODR 
EXESREAD_TODR: : ; SUBROUTINE ENTRY 
MFPR  #PR750$_TODR,RO ; TODR IS A PROCESSOR REGISTER. 


DRERPEDPE EDX AAPA PAA PAPA PAD MPA PPSSTSISTSISTSISISIUIUTIUIUIVIT «=o 
wouovowo 
ooo 

Sete Ge Ge Ge Ge 
Zao Dz 
mom» 
no OC 
moe 
za We 

x=—-r 
<zPrmc 


AOOMNIN | | —“OOOCOCOCoOoo 


PAI AN @ NA EMS NOAM Ew O 


8 
voe-002 enESCBT SORSQUTESSS FOR YE 114252 oun FACRESSISES QB:4B:D$ YCIME SesseNG°Cye,s 90° 1, v0 


-SBTTL EXESWRITE_TODR (P) = WRITES TIME-OF-DAY CLOCK 


WRITES THE TIME-OF “DAY CLOCK, SINCE IT MAY BE ACCESSED IN 

DIFFERENT WAYS: AS AN INTERNAL PROCESSOR REGISTER, AS PART 

OF THE CONSOLE, OR BY READING AN ADDRESS IN 1/0 SPACE. IT 
BE IN DIFFERENT FORMATS AND HAVE TO BE CONVERTED. 


£4 
ae 
£4 § : 
E4 : 
E4 i ; MAY ALSO 
Es 3 + INPUTS 
E4 t3 ; RO = CONTAINS VALUE TO BE WRITTEN INTO TODR 
EA ery ; OUTPUTS: 
£4 $58 : NEW TIME VALUE WRITTEN INTO TODR. 
E4 680; ALL REGISTERS PRESERVED. 
a 
oes 6 EXESWRITEP_TODR:: ; SUBROUTINE ENTRY 
0E4 685 ; NAUTILUS PROCESSOR NEEDS TO USE A SEPARATE ROUTINE TO ACCESS PHYSICAL TODR 
0&4 6 : : REGISTER IN THE CONSOL CESSOR FOR TWO REASONS. FIRST, THE PHYSICAL 
0&4 6 + TODR HAS ONE SECOND RESOLUTION INSTEAD OF 10 MSEC RESOLUTION. 
0&4 688 : REFERENCE TO THE PHYSICAL TODR IS A VERY S NON-INTERRUPTIBLE ACTION. 
0&4 689 : NON-PHYSICAL NAUTILUS TODR REFERENCES WILL USE THE EXES$WRITE_TODR ENTRY 
Beee oay 3; WHICH WILL FABRICATE A NEW QUADWORD SYSTEM TIME. 
anes 69¢ ; NOT NAUTILUS = FALL THROUGH TO WRITE_TODR 
0E4 694 EXESWRITE_TODR:: ; SUBROUTINE ENTRY 
0E4 695 
OE4 696 
tie 
18 50 ODA Me 103 MTPR RO, #PR750$_TODR ; TODR IS A PROCESSOR REGISTER. 
0E7 706 
£7 710 
0&7 711 
OE? 715 
E7 716 
0E7 4 
05 O0E7 722 RSB 
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vou=002 EXESREGSAVE ~ SAVE CPUCSPECIFIC IPR'S 18-SEP-1984 $o:c9:00 LSYSLOA.SREIERRSUBLMAR;5 = #8 8) 


: 4 im .SBTTL EXESREGSAVE = SAVE CPU-SPECIFIC IPR'S 
E : : EXESREGSAVE = CALLED BY POWERFAIL TO SAVE CPU-SPECIFIC IPR'S ON 
; 3 THE STACK 
: : ; INPUTS: NONE 
: 1 : OUTPUTS: 
E : : RO DESTROYED 
E 4: OTHER GENERAL REGISTERS PRESERVED 
OE 5: IPR'S SAVED ON THE STACK AS FOLLOWS: 
te f ? ; 11/780: 11/750: 11/730: 11/790: VAX I: 
£8 739 : O(SP) PME PME ACCS (none) 
O68 740: 4(SP) SBIMT TBDR CSwP 
OE 41 : 8(SP) CADR 
E g 3 
OE 43 :- 
O0E8 744 
QOE 745 .ENABL LSB 
OE 746 
OE 747 EXESREGSAVE: : ; SUBROUTINE ENTRY 
01 BA O0EB 749 POPR #*M<RO> [CLEAR RETURN FROM STACK 
OOEA 750 
OOEA 751 
SOFA 989 
7E 3D QOOEA 759 MFPR —- #PR750$_PME,-(SP) ;SAVE PERFORMANCE MONITOR ENABLE 
7E z5 DB QOED 760 MFPR  #PR750$~CADR,-(SP) [SAVE CACHE DISABLE REG, 
7E 26 DB OF 761 MFPR  #PR750$"TBDR.~(SP) : AND TB DISABLE REG 
O9t 764 
F3 768 
OOF3 769 
OOF 7 6 
60 17 OOF3 77 JMP (RO) ;DONE, RETURN 
00F5 779 
Oo 783 
OFS 784 .DSABL LSB 
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INPUTS: 


OUTPUTS: 


»ENABL 
EXESREGRESTOR:: 
POPR 


JMP 
-DSABL 
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EXESREGRESTOR = RESTORE CPU-SPECIFIC IPR'S 


Page 14 
9° 610) 


EXESREGRESTOR - FALL Eo BY POWERFAIL RECOVERY TO RESTORE CPU-SPECIFIC 


PR°S FROM THE STACK. 


R6 = TOP OF STACK 
STACK SET UP AS DEFINED IN OUTPUTS OF EXESREGSAVE. 


RO DESTROYED 
OTHER GENERAL REGISTERS PRESERVED 
CPU-SPECIFIC IPR'S RESTORED FROM STACK 
R6 - ADDRESS OF 1ST CPU-INDEPENDENT SAVED IPR 
LSB 
SUBROUTINE ENTRY 
#*M<RO> CLEAR RETURN FROM STACK 
(R6)+,#PR750$_TBDR RESTORE TB DISABLE REG, 
(R6)+,#PR750$_CADR ; AND CACHE DISABLE REG 
(R6)+, #PR750$_PME RESTORE PERFORMANCE MONITOR ENABLE 


(RO) 
LSB 


DONE, RETURN 
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ERRSUB750 - ERROR SUBROUTINES FOR VAX 11/750 -SEP=1984 00:49:14 VAX/viKS Macro v04-00 Page 15 
v04=002 EXESINIPROCREG = CPU-DEPENDENT INITIALIZ 13-SEP-1984 15:49:22 [CSYSLOA.SRCJERRSUB.MAR; 5 (11) 
46 a .SBTTL EXESINIPROCREG = CPU-DEPENDENT INITIALIZATION OF IPR'S 
1 ‘3 : EXESINIPROCREG = PERFORM INITIALIZATION OF INTERVAL TIMER AND 
49 : CPU-DEPENDENT REGISTERS. CALLED FROM INIT AND POWERFAIL. 
1 31 : INPUTS: 
1 § : 
! 37 3 NONE 
39 : OUTPUTS: 
19 3) : NONE 
195 BS8 | 
m8 t EXESINIPROCREG:: : INIT PROCESSOR REGISTERS 
1 5 
00" €1 $10 ds BBC S*#EX $V_CRDENABL - ; BRANCH IF FLAG CLEAR 
12 00000000' 9F 0104 7 A#EXESGL “FLAGS, 208 : CIGNORE ERRORS) 
50  00000000'9F DO O10A 28 MOVL § @#MMGSGL"SBICONF ,RO + GET ADDR OF MEMORY CONTROLLER 
DO ori 7 MOVL  (RO),R : CONFIG REGISTER (1ST SLOT) 
04 AO 10000000 8F CB 114 80 BISL #<1a38>,4(RO) ; SET CRD REPORT BIT 
00' €0 011¢ 5 20$: BBS S“#EXESV_NOCLOCK,- . 
OE 00000000' 9F ite 3 : a#EXESGL FLAGS, 30$ : BRANCH IF NOT USING CLOCK 
b15¢ 985 
19 FFFFD8FO 8F DA o1 4 937 MTPR = #=<10*1000>,S*#PR750$_NICR ; LOAD NEXT INTERVAL REGISTER 
0128 943 
18 800000D1 8F DA 01 944 MTPR #*X800000D1,S*#PRS$_ICCS ; CLEAR ERROR AND START CLOCK 
05 01 945 30$:  RSB : AND RETURN 
O13 946 
1 962 
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ERRS 750 = ERROR SUBROUTINES FOR VAX 11/750 16-SEP-1984 00:49:14 VAX/VMS Macro V04-00 Page 1 
hve itd SYSLSCLRSBIA 1$- 866248 4 90:48: 2 ESYSLOA.SRCJERRSUB.MAR: 5 . d% 

me .SBTTL SYSLSCLRSBIA 
1 : SYSLSCLRSBIA = = ON 11/7 EAR SBIA ERROR REGISTERS 
8 ; NRO. FhEAR 750, 14 536° AND MICRO=-VAX I, THIS IS A NOP 
1 0 : THIS ROUTINE IS CALLED TO CLEAR OUT SBIA ERROR ‘Bits AFTER A MACHINE CHECK 
931 : OCCURS (WHEN MACHINE CHECK IS HANDLED LOCALLY) 
$38 : THIS ROUTINE SHOULD BE CALLED AT IPL 31. 
1 95 : INPUTS: 
26 ABUS_TYPE - AN ARRAY TYPE CODES; IDENTIFIES EACH ADAPTER ON THE 
1 998 : ABUS_VA - AN ARRAY OF ADAPTER SPACE VA'S FOR EACH ADAPTER 
! 1000 ON THE ABUS. 
1 1001 ; OUTPUTS: 

01 1008 : SBI ERROR BITS ARE CLEARED FOR EACH SBIA ON THE ABUS. 

O13 1003 ; | ; ALL REGISTERS PRESERVED. 

0133 1005 iy YSLSCLRSBIA:: 

05 0133 1023 RSB ; AND RETURN 
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SUBR 
T_CSR 13-SEP-1 SYSLOA. SRCJERRSUB.MAR; 5 (14) v04 
4 - .SBTTL EXESTEST_CSR 
‘ } i ¥ EXESTEST_CSR = TEST A UNIBUS CONTROLLER CSR FOR EXISTENCE 
4 , THIS TEST IS CPU-DEPENDENT. THE FOLLOWING CPU'S ARE SUPPORTED: 
134 1 $ : 11/780 “TEST CSR AND CHECK RESULT IN THE UBA STATUS REGISTER. 
134 1 : 11/750 NON-EXISTENT CSR IS REPORTED VIA MACHINE ath ECK AS A 
134 1 : : NON-EXISTENT MEMORY REFERENCE. CONN A TEMPORARY 
134 1 ; MACHINE CHECK HANDLER, TEST THE CSR, AND RESTORE THE 
134 1040 : ORIGINAL MACHINE CHECK HANDLER. 
134 1041 : 11/730 “ACTION IS TH AS FOR THE 11/750. 
134 1 4g ; 11/790 ACTION IS THE SAME AS FOR THE 11/780. 
4 1043 ; MICRO-VAX I -ACTION IS SAME AS FOR THE 11/750. 
oi 4 i : THIS SUBROUTINE SHOULD BE CALLED VIA BRANCH OR JUMP TO SUBROUTINE AT IPL 31. 
0134 1 13 : INPUTS: 
Er 19¢8 : RO = CSR ADDRESS 
0134 1080 ; R6 = ADAPTER CONFIGURATION REGISTER ADDRESS 
O14 105¢ : OUTPUTS: 
0134 1054 : RO LOW BIT SET/CLEAR FOR EXISTENT/NONEX CSR 
0134 1055 : OTHER REGISTERS PRESERVED 
Si3e toes 
a3 1058 .ENABL LSB 
oi 4 1960 EXESTEST_CSR:: ; SUBROUTINE ENTRY 
06 8B EP 106¢ PUSHR #*M<R1,R2> ySAVE REGISTERS 
gee 108 
00000024 0136 1138 MCK_BER = *X24 ZOFFSET INTO 750 MACHINE CHECK FRAME 
0136 1124 : FOR BUS ERROR REGISTE 
00000003 0136 1 3 NEX = 3 : BIT POSITION FOR NON-EXISTENT MEMORY 
136 1141 
51 00000000'GF 00 136 1148 10$:  MOVL  G*EXES$GL_SCB.R1 :GET SCB ADDRESS 
04 Al DD 0130 114 PUSHL  4(R1) ‘SAVE CURRENT MCHECK HANDLER ADDR 
52. SE 00 140 1144 MOVL  SP,R2 :MARK CURRENT STACK POSITION 
04 Al” SO'AF DE 143 1145 MOVAL ®B*MCHK_HANDLER,4(R1) :CO ONNECT TEMP MCHECK HANDLER 
60 B5 0148 1146 TSTw (RO) ATTEMPT TO READ CSR 
50 01 OA O14, 114 OK: MOVZBL #SS$_NORMAL,RO ETE. NO nh Neck. SET STATUS TO 
19 11 014D 1149 BRB TEST_DONE [JOIN COMMON EXIT 
ge 
14F 1136 : TEMPORARY CSR TEST MACHINE CHECK HANDLER 
14F 1154 ° 
14F 1136 .ALIGN LONG ;REQ'D MACHINE CHECK ALIGNMENT 
13 1138 MCHK_HANDLER: : 
26 «OF DA «(ON 1159 MTPR #*XF,#PR750$_MCESR :CLEAR NON-EX MEMORY CONDITION 
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9 
OUTINES FOR VAX 11/756 


TEST_DONE 2: 
POPR #*M<Ri ,R2> 


RSB 
-DISABLE LSB 


R 
R 

11 

11 

Hi 

1178 MOVL  #<1@NEX>,RO 

11 CMPL = (SP) , #*xOC 
117% BEQL 

117 MOVL MCK_BER(SP),RO 
1126 50$ MOVL 

117 BBC #NEX,RO,OK 
1179 

11 A NONEX_DEV: 

11 C RO 

1190 TEST_DONE : 

1191 4(R1) 

119¢ 

119 

1194 

1195 
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$ Macro V04-00 Page 18 
A. SRCJERRSUB.MAR; 5 (14) 

:SETUP 

[1S THIS A 730 FRAME? 

[YES, THEN DON'T CHECK FURTHER 

‘SAVE BUS ERROR REGISTER 

'CLEAR MCHECK INFO FROM STACK 

:MEMORY EXISTS, PARITY FAILURE 


:SET STATUS TO FAILURE 
:RESTORE SYSTEM MCHECK HANDLER 


RESTORE REGISTERS 
RETURN RESULT TO CALLER 


<3 | 
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v04-002 ADPLINK = LINK ADAPTER contROL BLOCK INT | -SEP-1984 2 (CSYSLOA.SRCJERRSUB.MAR;5 (15) v04 
1¢F 1137 ~SBTTL ADPLINK = LINK ADAPTER CONTROL BLOCK INTO ADP LIST 
18 } ei : ADPLINK LINKS THE ADAPTER CONTROL BLOCK TO THE END OF THE ADP LIST 
18 1301 } INPUT: 
16F 1 § ; "R2 - ADDRESS OF NEW ADP 
\or 1 ; OUTPUTS: 
16F 1204; ADP_IS LINK TO THE END OF THE ADPLIST LOCATED BY IOCSGL_ADPLIST. 
+ a ! 5; RO,R1 destroyed. 
16F 1 : 2 
16F 1 § ADPLINK:: : 
50 FFFFFFFC'SF 9E : f } 1 MOVAB OPLEOC ISL JOPL IST “AOPRL DIE? List 
51 04 AO 00 176 1211 10$ MOVL ADPS$L_LINK(RO),R1 : FLINK TO FIRST ENTRY 
05 1 17A 1 \¢ BEQL 20$ ; AT END 
50 51 00 Biee 121 MOVL R1,R0 : TRY AGAIN 
F5 11 17F 1214 BRB 10 3 
04 AO 52 dO big 1215 20$ MOVL R2,ADP$L_LINK(RO) ; CHAIN NEW ADP TO END OF LIST 
05 4 ! 18 RSB ; AND RETURN 
gree 1218 END 
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~ ERROR SUBROUTINES FOR VAX 11/758 


PRS_ICCS 
PRS-SID_TYP7 
PRS-SID-TYP7 
PRS-SID-TYP7 
PRS-SID-TYP7 
PRE S1D TYPUVI 
PR750$_KCCS 
PR750$-CADR 
PR7SOS-CAER 
PR750$-CMIERR 
PR7SOS"ICR 
PRI DOS _HCESR 
PR7SOS-NICR 
PR750$_PME 
PR750$-TBOR 
a $“TODR 
750$-UBRESET 


SS 
SYSCSCLRSBIA 
TEST _DONE 
TEST DONE _2 


UBASTNITIAL 
UBASL _MAP 
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Psect synopsis SYSLOA.S 


Foeeeeeecoeececeeoe} 


! Psect synopsis ! 


oe 


PSECT name Allocation PSECT No. Attributes 
- ABS, 08 0000 <¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE 
. BLANK , 0 8 01 ¢ 1.) O1¢ #1.) NOPIC USR CON REL’ LCL NO EX 
SABSS$ 000 90 ( 8-3 ; ( ¢° NOPIC USR CON ABS LCL NOSHR’- EXE 
SYSLOA 0000186 ( 390.) ( -) NOPIC USR CON REL LCL NOSHR- EXE 
gar wore ecee ces ec e ene eaceaaae > 
; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00: 8:98 -? 0:00: 3-6 
Command processing 119 0:00: 9-? 0:00:03. 
Pass 343 Q: 3: 4 0:00:31.7 
Symbol table sort 9 0:00: +89 0:00:03.5 
Pass 2 13 8: 0: ‘- 2 0:00:09.5 
Symbol table output 11 : 3: .0 g: 0: 8:08 
Psect synopsis output 3 0:00:00.0 :00:00.0 
Cross-reference output 00:00:00.0 Bp 88 83-08 
Assembler run totals 639 00:00:11.1 0:00:52.4 


The working set Limit was 1500 pages. 
70766 bytes (139 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1061 non-local and 17 local symbols. 
1222 source Lines were read in Pass 1, preaye ine 16 object records in Pass 2. 

20 pages of virtual memory were used to define 19 macros. 


ey 


: Macro Library statistics H 


Macros defined 


-$255$DUA28: (55.0821 18.mL8:1 Steen ee 
$255$DUA28: CSYSLIBISTARLET.MLB;2 
TOTALS (all Libraries) 16 


1124 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
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acro V04-00 Page ¢ 
RCJERRSUB.MAR;5 (15) 
NORD NOWRT NOVEC BYTE 

x WRT NOVEC BYTE 


WRT NOVEC BYTE 
RD WRT NOVEC LONG 
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AND PROPRI 


L EQUIPMENT 
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